home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS01.ADF / ABasicStuff / Graphics / SpaceArt.bas < prev    next >
BASIC Source File  |  1985-12-04  |  419b  |  20 lines
  1. 10    rem *** SPACE ART 10/26/85
  2. 20    rem
  3. 30    screen 1,4,0:drawmode 1
  4. 40    graphic (1)
  5. 50    scnclr
  6. 52    rgb 0,0,0,0
  7. 54    rgb 1,0,0,0
  8. 56    rgb 2,0,0,0
  9. 60    pena 1:penb 1:paint (320,100)
  10. 70    pena (rnd*14)+2
  11. 80    x1%=319:y1%=99
  12. 90    i=0:ra=rnd*3.1416+.01
  13. 100   for i=0 to 36 step .05
  14. 110   x%=280*sin(i)+x1%
  15. 120   y%=80*cos(ra*i)+y1%
  16. 130   draw (x1%,y1% to x%,y%)
  17. 140   next i
  18. 150   sleep 3*1^6
  19. 160   goto 50
  20.